<% Call ThemeStart %>

<%Call AboutUsLink%> <% 'TK For i = 0 To 1 'response.write GetMonthName(Month(DateAdd("m", -i, now()))) & "
"%> <% Next %>

&Y=<%=Year(DateAdd("m", -i, now()))%>&<%=ProcessID%>"> <%=GetMonthName(Month(DateAdd("m", -i, now()))) & " " & Year(DateAdd("m", -i, now()))%>

<% 'TK 'Call OpenConn sSQL = "Select ContentID, ContentTitle, ContentDesc, ImageName, C.CreateDate, " & _ "(Select ImageName from UploadImage where ImageID = C.ImageID) " & _ "From Content C Left Join UploadImage I On I.ImageID = C.ContentImageID " & _ "Where ContentType = 'P' And C.Enabled = 1 And Month(C.CreateDate) = " & iSelectedMonth & _ " And Year(C.CreateDate) = " & iSelectedYear & _ " Order By C.CreateDate Desc" oRs.Open sSQL,,0,1,1 If Not oRs.EOF Then aContentList = oRs.GetRows() oRs.Close 'Call CloseConn sImageName = "wathit53.gif" sBG = " background=Images/Background/" & sImageName If IsArray(aContentList) = True Then For i = 0 To UBound(aContentList, 2) sContent = aContentList(2,i) sContentImg = aContentList(3,i) %><% Next Else %><% End If 'TK End %>

J.A.R PRESS <% 'TK If Request.QueryString("D") <> "" Then iSelectedMonth = Int(Split(Request.QueryString("D"), "\|")(0)) iSelectedYear = Int(Split(Request.QueryString("D"), "\|")(1)) Else If Request.QueryString("M") <> "" Then iSelectedMonth = Int(Request.QueryString("M")) iSelectedYear = Int(Request.QueryString("Y")) Else iSelectedMonth = Month(Now()) iSelectedYear = Year(Now()) End If End If If iSelectedMonth = Month(Now()) And iSelectedYear = Year(Now()) Then %> Latest press:<% Else %> <%=GetMonthName(iSelectedMonth) & " " & iSelectedYear%><% End If %>
		<%=GetMonthName(Month(aContentList(4,i))) & " " & Day(aContentList(4,i)) & ", " & Year(aContentList(4,i))%> - <%=aContentList(1,i)%> <%=sContent%>

		NO PRESS IS AVAIL.

<% Call ThemeEnd %>